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FOREWORD 


This  is  one  of  three  technical  reports  being 
published  simultaneously.  The  others  are  the  MILITRAN 
Operations  Manual  for  IBM  7090-709**  (Technical  Documentary 
Report  No.  ESD-TDR-64-389)  and  the  MILITRAN  Programming 
Manual  (Technical  Documentary  Report  No.  ESD-TDR-64-320) . 
The  three  reports  constitute  a  complete  description  and 
instructions  for  using  the  MILITRAN  language  in  computer 
programming  of  simulation  problems. 

The  MILITRAN  7090-7094  Processor,  which  is  used 
to  compile  a  problem  written  in  MILITRAN  source  language 
into  a  machine  language  program,  will  be  available  to  pro¬ 
spective  users.  Pending  final  arrangements,  requests  for 
information  about  the  MILITRAN  Processor  should  be  sent  to 
the  Office  of  Naval  Research  (Code  491). 

This  report  was  prepared  by  the  Systems  Research 
Group,  Inc.>  under  Contract  Nonr-2936(00),  which  was  initi 
ated  by  the  Naval  Analysis  Group,  Office  of  Naval  Research 
and  has  been  Jointly  supported  by  the  Office  of  Naval 
Research  and  the  Electronic  Systems  Division,  Air  Force 
Systems  Command. 


ABSTRACT 


MILITRAN  Is  an  algorithmic  computer  language 
specifically  oriented  to  the  problems  encountered  in 
simulation  programming.  In  addition  to  providing  over¬ 
all  flexibility  in  expressing  complex  procedures,  the 
language  contains  features  which  greatly  simplify  the 
maintainence  of  status  lists,  handling  of  numeric  and 
non -numeric  data,  and  sequencing  of  events  in  simulated 
time. 

This  report  is  intended  as  a  reference  summary 
for  those  already  familiar  with  MILITRAN. 


REVIEW  AND  APPROVAL 


This  Technical  Documentary  Report  has  been 
reviewed  by  the  Electronic  Systems  Division,  U.  S.  Air 
Force  Systems  Command,  and  is  approved  for  general  distribu¬ 


tion. 


J.  B.  CURTIS 
2n<*  Lt.,  USAF 
PROJECT  OFFICER 
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INTRODUCTION 

This  manual  la  designed  as  a  reference  for 
programmers  working  In  MILITRAN.  The  description  of  the 
MILITRAN  language  herein  Is  more  concise  than  that  given 
In  the  MILITRAN  PROGRAMMING  MANUAL,  with  which  the  reader 
Is  assumed  to  be  familiar. 

Various  sections  of  this  manual  outline  GENERAL 
LANGUAGE  CHARACTERISTICS,  statements  which  define  program 
STRUCTURE,  characteristics  of  EXPRESSIONS,  and  statements 
whose  major  functions  Include  PROCESSING,  INPUT  OUTPUT, 
CONTROL,  and  operation  of  the  COMPILER. 

A  summary  of  all  MILITRAN  forms  Is  Included  In 


the  appendix. 
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GENERAL  LANGUAGE  CHARACTERISTICS 

A  MILITRAN  source  program  is  a  series  of 

MILITRAN  statements  which  specify  a  sequence  of  operations 

to  be  performed  by  a  digital  computer.  A  program  is  either 

a  main  program  or  a  procedure.  A  main  program  initiates 

processing  and  may  be  devised  in  such  a  way  as  to  require 

no  procedures,  A  procedure  cannot  initiate  processing  and 

must  receive  a  signal  from  either  a  main  program  or  another 

procedure  before  its  operation  sequenoe  oan  be  executed. 

« 

A  MILITRAN  statement  is  a  string  of  elements 
arranged  in  a  prescribed  order  which  specifies  one  or  more 
of  the  following  characteristics  of  the  program: 

1.  STRUCTURE  of  the  program 
or  its  elements; 

2.  PROCESSING  to  be  performed 
within  the  computer; 

3.  INPUT/OUTPUT,  or  exchange 

of  data  between  the  computer 
and  its  external  storage  devices; 

4.  CONTROL  of  the  sequence  in 
which  various  operations  are 
to  be  performed;  and 
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5.  COMPILER  instructions,  or 
specification  of  the  manner 
in  which  the  translation  from 
MILITRAN  to  machine  language 
is  to  be  performed. 

The  elements  which  combine  to  form  MILITRAN 
statements  are  names,  constants,  punctuation  marks, 
statement  type  identifiers,  operators,  and  mnemonic 
delimiters.  These  elements  are  in  turn  made  up  of 
characters,  which  are  the  basifc  units  of  any  language. 

Characters 

The  MILITRAN  Basic  Language  is  expressed  in  terms 
of  the  following  character  set: 

ABCDEPGHIJKLMN0PQRSTUVW 
XYZ  0123456789.0,-+-*/ 

The  character  "blank"  is  normally  not  significant 
in  the  language.  Except  where  specifically  noted  in  this 
summary,  blanks  may  be  used  in  any  part  of  a  statement  with¬ 
out  any  effect  on  the  statement. 

"Alphabetic  characters"  include  the  letters  A  through 
Z;  "numeric  characters"  include  the  digits  0  through  9;  alpha¬ 
meric  characters  include  both  alphabetic  and  numeric  characters. 
All  others  are  "special  characters." 
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Names 

A  name  is  a  string  of  one  to  sixty  alphameric 
characters,  the  first  of  which  is  alphabetic.  Although 
statement  type  identifiers  and  mnemonic  delimiters  are 
alphabetic  strings,  their  use  within  a  statement  distinguishes 
them  from  names  without  ambiguity. 

Certain  names  have  a  pre-defined  meaning  in 
MILITRAN  and  may  be  used  only  in  reference  to  that  meaning. 


These  names  are: 

» 

ABS 

GST 

PRINTER 

ATAN 

INDEX 

RAND0M 

ATTACKER 

INTEGER 

RAND0M  INDEX 

CARDS 

LENGTH 

REAL 

C0S 

L0G 

SIGN 

EACH 

LST 

SIN 

END  C0MPILATI0N 

MAX 

SQRT 

EPSIL0N 

MIN 

TAN 

EXP 

MINIMUM  INDEX 

TARGET 

FALSE 

M0D 

TIME 

F0RMAT 

NEXT  EVENT 

TRUE 

All  names  used  in  a  MILITRAN  source  program  are 
either  explicitly  or  implicitly  assigned  a  type.  Some 
types  of  names  are  assigned  a  mode.  The  type  of  a  name 
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Indicates  the  nature  of  Its  use  In  the  program.  The  mode 
of  a  name  Indicates  the  form  of  data  referred  to  by  the 
name. 

The  following  table  lists  all  possible  types  of 
names,  whether  or  not  they  have  modes,  and  short  descrip¬ 
tions  of  their  use  In  a  program. 


Type 

Mode? 

Use  In  Program 

Single  Variable 

Yes 

Storage  of  single  Items  of  data. 

Array 

Yes 

Storage  of  several  Items  of  data 
tinder  a  single  name. 

Vector 

Yes 

Storage  of  several  arrays  under 
a  single  name. 

List 

Yes 

Special  form  of  vector  which  permits 
automatic  updating  of  data  Items. 

Object 

No 

Specification  of  basic  Identifiers. 

Class 

No 

Grouping  of  objects. 

Contingent  Event 
with  List 

Yes 

Association  of  processing  functions 
with  a  list  of  the  same  name. 

Permanent  Event 

No 

Linking  of  processing  functions 

In  a  simulated  time  sequence. 

Permanent  Event 
with  List 

Yes 

Association  of  processing  functions 
with  a  list  of  the  same  name. 

Vector  Component 

Yes 

An  array  which  Is  associated  with 
a  vector  of  list. 

Symbolic  Dimension 

Yes 

Specification  of  array  dimensions. 

Statement  Label 

No 

Designation  of  points  in  program. 

Procedure 

Yes 

Designation  of  subroutine  entry. 

Open  Procedure 

Yes 

Designation  of  integral  processing 
codes. 

External  Procedure 

Yes 

Designation  of  separately  coded  pro¬ 
cessing. 
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Constants 

Constants  are  single  Items  of  data  whose  value  Is 
unchanged  throughout  the  execution  of  the  program.  In  fact, 
a  constant  might  be  thought  of  as  a  nameless  single  variable. 

Integer  constants  may  take  one  of  the  following 

forms : 

1.  A  string  of  numeric  characters. 

2.  A  string  of  the  form  "nHxxxxxx" 
where  n  Is  a  digit  not  exceeding  6 
and  x  Is  any  character  Including 
the  character  “blank" .  The  number 
of  characters  (x)  must  be  equal  to 
n. 

Real  constants  may  take  one  of  the  following 

forms : 

1.  A  string  of  numeric  characters 
which  Includes  one  and  only  one 
period. 

2.  A  string  of  numeric  characters,  which 
may  or  may  not  Include  a  period, 
followed  by  E,  En,  Enn,  E+n,  or  E+nn, 
where  n  Is  a  numeric  character. 

The  distinction  between  real  and  integer  constants 
is  significant  only  In  arguments  to  procedures. 

Logical  constants  Include  only  the  names  TRUE  and  FALSE. 
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Punotuatlon  Marks 

The  only  punctuation  marks  used  In  MILITRAN 
are  the  following: 

.  Period 

(  Open  Parentheses 

)  Close  Parentheses 

,  Comma 

...  Ellipsis  (Delimits  comments) 

Operators 

The  operators  used  ip  MILITRAN  are  the  following 


- 

Substitution 

+ 

Addition;  plus 

- 

Subtraction; 

minus 

* 

Multiplication 

/ 

Division 

.p. 

Exponentiation 

.E. 

Comparison: 

Equal  to 

.0. 

Comparison: 

Greater  than 

.L. 

Comparison: 

Less  than 

NE. 

Comparison: 

Not  equal  to 

OE. 

Comparison: 

Greater  than 

or  equal  to 

LE. 

Comparison: 

Less  than  or 

equal  to 

IS. 

Object  Identity 

IN. 

Object  Inclusion 
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,0R. 

Logical 

disjunction 

.N0T. 

Logical 

negation 

.AND. 

Logical 

conjunction 

.EQV. 

Logical 

equivalence 

EX0R. 

Logical 

exclusive  disjunction 
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Mnemonic  Delimiters 

The  delimiters  BY,  BY  ENTRY,  C0NTAINS,  F0R, 

FR0M,  IN,  T0,  and  UNTIL  are  used  vrlthln  certain  state¬ 
ments.  Use  of  these  alphameric  combinations  as  names 
Is  permitted,  as  the  distinction  between  name  and  delimiter 
Is  always  contextually  clear. 

Statement  Type  Identifiers 

The  basic  statement  In  MILITRAN  Involves  substitu¬ 
tion  of  one  data  Item  for  another  within  the  computer.  The 
substitution  statement  has  the  form 

a  »  b 

where  a  Is  a  subscripted  or  unsubscrlpted  variable  name  and 
b  Is  any  expression  whose  value  Is  suitable  for  storage  In  a. 

All  statements  which  are  not  substitution  statements 
are  designated  by  alphabetic  strings  called  statement  type 
Identifiers.  The  following  table  lists  all  statement  types 
and  their  primary  uses.  The  form  and  characteristics  of  each 
statement  Is  summarized  In  later  sections  by  primary  use. 
Primary  functions  are  listed  under  GENERAL  LANGUAGE  CHARACTER- 
ISTICS . 
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Statement  Type 

Primary  Function 

BACKSPACE 

INPUT/OUTPUT 

BACKSPACE  PILE 

INPUT/OUTPUT 

BINARY  READ 

INPUT/OUTPUT 

BINARY  WRITE 

INPUT/OUTPUT 

CLASS 

STRUCTURE 

C0MM0N 

STRUCTURE 

C0NTINGENT  EVENT 

STRUCTURE 

C0NTINUE 

CONTROL 

D0 

CONTROL 

END 

CONTROL 

END  C0MPILATI0N 

COMPILER 

END  C0NTINGENT  EVENTS 

CONTROL 

END  PILE 

INPUT/OUTPUT 

END  FILE  RETURN 

CONTROL 

END  REC0RD  RETURN 

CONTROL 

EXECUTE 

CONTROL 

F0RMAT 

INPUT/OUTPUT 

G0  T0 

CONTROL 

IF 

CONTROL 

INTEGER 

STRUCTURE 

LIST 

STRUCTURE 

L0GICAL 

STRUCTURE 

NEXT  EVENT 

CONTROL 

NEXT  EVENT  EXCEPT 

CONTROL 
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Statement  Type 

Primary  Punctlon 

N0RMAL  M0DE 

STRUCTURE 

0BJECT 

STRUCTURE 

PAUSE 

CONTROL 

PERMANENT  EVENT 

STRUCTURE 

PLACE 

PROCESSING 

PLACE  ENTRY 

PROCESSING 

PR0CEDURE 

STRUCTURE 

PR0GRAM  0BJECT 

STRUCTURE 

READ 

INPUT/OUTPUT 

READWRITE 

INPUT/OUTPUT 

REAL 

STRUCTURE 

REM0VE 

PROCESSING 

REM0VE  ENTRY 

PROCESSING 

REPLACE 

PROCESSING 

REPLACE  ENTRY 

PROCESSING 

RESET  LENGTH 

PROCESSING 

RETURN 

CONTROL 

REWIND 

INPUT/OUTPUT 

ST0P 

CONTROL 

SUSPEND  PAP  LISTING 

COMPILER 

UNLESS 

CONTROL 

UNL0AD 

INPUT/OUTPUT 

VECT0R 

STRUCTURE 

WRITE 

INPUT/OUTPUT 

l; 


STRUCTURE 


Structure  -  defining  statements  are  summarized  in 
this  section.  They  include: 


CLASS 

C0MM0N 

CONTINGENT  EVENT 

INTEGER 

LIST 

LOGICAL 

NORMAL  M0UE 


Object 

PERMANENT  EVENT 
PROCEDURE 

program  Object 

REAL 

VECTOR 


Object 

The  statement 


OBJECT  n^ (d^ ) )  n^ ( dg )>•••>  n^ ( d^ ) 


defines  names  n^,  n^,...,  n^  to  represent  basic  object  types. 

The  names  are  preserved  for  use  at  running  time  in  Input/output 
operations . 

Dimension  d^  designates  the  number  of  objects  to  be 
named  n^.  This  dimension  may  be  an  expression  of  real  or  integer 
mode.  Names  used  in  a  dimension  are  defined  by  such  use  to  be 
symbolic  dimensions,  and  no  other  declaration  of  type  or  mode  is 
permitted  except  subsequent  use  in  dimensions. 
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Class 

The  statement 

CLASS  (n)  C0NTAINS  a^,  a2,.,.,am 

defines  the  name  n  to  be  that  of  a  class.  The  name  Is  not 
preserved  In  Its  external  form. 

The  members  of  the  class  are  specified  by  elements 

a,,  a0,...,a  ,  where  a.  may  have  the  following  forms: 
i  d  m  1 

object  name 
EACH*obJect  name 
class  name 
EACH*class  name 

Object  and  class  names  used  In  a.,  a0,...,a  must 

i  c.  in 

have  been  declared  as  such  by  statements  appearing  before  the 
current  CLASS  statement. 

The  use  or  absence  of  "EACH*”  Indicates  whether  or 
not  membership  is  individual  as  opposed  to  collective. 
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Real,  Integer,  Logical,  Program  Object 

The  statements 

REAL  a^,  •  •  •  > 

INTEGER  a^,  a2, • • • , 

L0G IC AL  a^,  a 2 , « « « , 

PR0GRAM  0BJECT  a^,  am 

where  element  a^^  may  have  the  form  nA  or  n^(d^,  d2> . . . , d^) , 

defines  names  n^,  n2>,,,#nm  *>e  REAL,  INTEGER,  LOGICAL, 

or  PROGRAM  OBJECT  mode. 

The  appearance  of  dimensions  (d^,  dg,...^^)  In  the 
element  aA  further  defines  name  nt  to  be  an  array  having  k 
dimensions. 

Dimensions  (d^,  dg,...^^)  may  each  assume  the 
following  forms: 

1.  An  expression  of  real  or 
Integer  mode; 

2.  An  object  name;  or 

3.  A  class  name. 

Any  name  which  appears  In  a  dimension  Is  defined  by 
such  appearance  to  be  a  symbolic  dimension  unless  It  Is  defined 
elsewhere  as  an  object  or  class.  No  other  definition  of  symbolic 
dimensions  Is  permitted  except  subsequent  use  In  another  dimension. 
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Normal  Mode 

In  the  absence  of  explicit  mode  declarations,  names 
are  assigned  modes  according  to  their  Initial  letters  as  re¬ 
quired.  The  correspondence  of  modes  to  Initial  letters  Is 
known  as  the  "normal  mode". 

The  statement 

N0RMAL  M0DE  m^(a^,  a2,,,#,a^),  nig  (b^ ,  t  j , . . . ,  1  / , 
m^ (c Cg ,.««,c^),..., mr 

Is  used  to  specify  the  normal  mode.  Mode  designators  m  may 
be  the  words  REAL,  INTEGER,  L0GICAL,  or  PR0ORAM  0BJECT  . 
Alphabetic  characters  a^,  a2,...,b1,  b2,...,ck  Indicate  the 
Initial  letters  which  are  to  correspond  to  the  various  mode 
designators.  Designator  mr  applies  to  all  letters  not  ex¬ 
plicitly  mentioned  In  the  statement,  and  Is  assumed  REAL  If 
absent. 

The  normal  mode  so  defined  will  prevail  until 
another  N0RMAL  M0DE  statement  Is  encountered.  The  Initial 
normal  mode  for  all  programs  Is  REAL. 
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Vector,  List 

The  statements 

VECT0R  n((c^;C2> d  ^ ,  ^2  *  *  *  *  * ^  *  e t c « 

LIST  n((c^,Cg,...,Cj),d^),  etc* 

define  groups  of  arrays  whlch  have  Identical 

dimensions  d^,d2, . . *,dk  and  are  grouped  together  under  the 
name  n.  The  name  n  is  declared  to  be  a  vector  or  list,  and 
names  ci*c2',#,'cj  are  declared  to  be  vector  components. 

The  number  of  such  name/component/dlmenslon  groups  which 
can  be  declared  in  one  statement  is  limited  only  by  the  max¬ 
imum  statement  length. 

Unless  the  mode  of  name  n  is  declared  explicitly 
in  a  REAL,  INTEGER,  L0GICAL,  or  PR0GRAM  0BJECT  statement,  the 
normal  mode  prevailing  at  the  appearance  of  the  VECT0R  or  LIST 
statement  will  be  assigned.  Components  whose  modes  are  not 
explicitly  defined  will  be  assigned  the  mode  of  the  name  n. 

Dimensions  d^,dg, . . . ,d^  may  assume  the  same  form  as 
array  dimensions  previously  described. 

Only  two  differences  obtain  between  vectors  and  lists: 

1.  Lists  may  have  only  one  dimension; 
vectors  may  have  any  number. 

2.  Lists  may  be  operated  on  by  special 
processing  statements;  vectors  may  not. 
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Contingent  Event,  Permanent  Event 

The  statements 

C0NTINOENT  EVENT  n(  (c^Cg,  . . .  ,Cj )  ,d1) 

PERMANENT  EVENT  n(  (c^Cg, . . . ,  Cj )  ,d1) 

PERMANENT  EVENT  n 

% 

declare  the  name  n  to  be  a  contingent  event  with  list,  permanent 
event  with  list,  or  permanent  event.  Forms  with  a  list  create 
storage  assignments  exactly  as  would  a  LIST  statement. 

The  event  statement  Is  always  followed  by  a  series  of 
one  or  more  statements,  the  last  of  which  must  be  an  END  state¬ 
ment.  (See  CONTROL. )  This  series  of  statements  embodies  the 
processing  associated  with  the  event  named  n. 

Standard  event  processing  algorithms  require  the 
components  c^Cg#  and  c^  of  a  C0NTINGENT  EVENT  list  to  have  modes 
of  REAL,  PR0GRAM  OBJECT,  and  PR0GRAM  0BJECT  respectively.  Any 
other  construction  may  be  used  where  standard  processing  Is  not. 
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Common 

The  statement 

C 0MM0N  n^  , n2  ,  •  •  • , n^ 

causes  storage  required  by  data  Items  named  n^ng, . .  .,n^  to 
be  placed  In  a  special  area  of  the  computer  so  that  it  can 
be  directly  accessed  by  procedures.  Additions  to  this  com¬ 
mon  store  are  cumulative.  Items  from  one  common  statement 
being  added  to  those  from  any  previous  common  statement. 

Access  to  common  data  by  more  than  one  program 
requires  that  each  program  have  Identical  common  structure, 

1  .e. : 

1.  Each  Item  In  common  must  be 
Identically  defined  In  both  pro¬ 
grams  ; 

2.  Common  statements  In  both  programs 
must  specify  these  Items  In  Identi¬ 
cal  order. 

Identical  definition  and  order  suggest  the  following 
rules  for  common  structure: 

1.  If  an  Item  In  common  has  symbolic 
dimensions,  the  dimension  names 
should  also  be  In  common; 
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2.  If  an  Item  In  common  haa  dimensions 
which  are  object  or  claaa  names,  those 
names  should  also  be  In  common; 

3.  If  a  PERMANENT  EVENT  with  list  Is 

In  common,  the  corresponding  Item  In 
all  programs  except  that  containing 
the  event  processing  should  be  declared 
as  a  LIST. 

4.  If  a  C0NTINGENT  EVENT  with  list  Is  In 
common,  the  corresponding  Item  In  all 
programs  except  that  containing  the 
event  processing  should  be  declared  as 
a  LIST  and  preceded  In  common  by  a 
single  variable  which  Is  otherwise 
unused.  This  extra  variable  does  not 
appear  In  the  common  statements  of  the 
program  containing  the  event  processing. 

Only  certain  types  of  names  may  appear  In  a  common 
statement,  and  these  types  are: 

Single  variable 

Array 

Vector 


List 
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Object 

Class 

Contingent  event  with  list 
Permanent  event  with  list 
Symbolic  dimension 

The  names  TIME,  ATTACKER,  TARGET,  or  INDEX  may  not 
appear  In  a  common  statement.  Appearance  of  the  name  NEXT 
EVENT  In  a  common  statement  will  place  all  of  the  above  names 
In  common. 

Procedure 

The  statement 

PR0CEDURE  n(a1,a2, . . . ,am) 

designates  the  entire  program  In  which  It  appears  to  be  a 
procedure  whose  name  corresponds  to  the  first  six  (or  less) 
characters  of>  the  name  n.  Neither  the  name  n  nor  another 
PR0CEDURE  statement  may  appear  elsewhere  In  the  same  program. 

The  names  a1,a2,...,am  and  their  enclosing  parentheses 
are  optional,  and  designate  the  dummy  arguments  to  the  procedure 
If  present.  The  following  types  of  names  may  be  used  as  dummy 
arguments : 

Single  variable 

Array 

Vector 

List 

Object 


Class 

Contingent  Event  with  list 
Permanent  Event  with  list 
Symbolic  dimension 
Statement  label. 
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EXPRESSIONS 

As  many  MILITRAN  statements  depend  upon  the  use 
of  expressions,  a  brief  summary  of  expression  forms  and 
types  is  presented  in  this  section.  A  short  discussion  of 
retrieval  forms  is  also  included. 

Expression  Syntax 

The  overall  syntax  of  expressions  is  presented 
here  in  the  familiar  Backus  type  notation. 

Brackets  <>  used  below  enclose  terras  designating 
elements;  the  sign  : may  be  read  as  "takes  the  form";  ver¬ 
tical  lines  may  be  read  as  "or";  and  all  other  characters 
represent  themselves. 


{arithmetic  expression^ 
{program  object  expression^ 


{arithmetic  expression^  ::=* 


{arithmetic  operatoi^  +  |  -  ]  *  |  /  |  .P. 


(real  expression)  :  *■ 


(integer  expression) 


(logical  expression) 


(real  data  item)  +  \real  expression) 
-{real  expression)  (  (real  expression)  ) 


'real  /  /arithmetic/ 

(expression/  /operator  / 


V 

real 
expression 


/integer 

/expression 

/real 


/arithmetic 
/operator 


real 
expression 


>1 


/  arithmetic 
/expression/  '  operator 


integer  \ 
/  expression/ 


integer  data/ 
item 

integer 

expression/ 


+  / integer 
\ expression 


( 


/integer  \ 
/expression/ 


) 


/integer  \  /’arithmetic 
/expression  /  \  operator 

(logical  data  item)  |  .N0T. 


integer  \ 
expression/ 

logical  ) 
expression/ , 


^program  object  expression) 


/logical  \  /logical  \  /logical  \ 
/expression/  /operator/  /expression/ 

/arithmetic/  -arithmetic  \  /arithmetic/ 1 
/expression  '  /comparator  /  /expression/ 1 

/program  object)  IN  /object  or  \  ! 
/expression  /  ‘  *  /class  name/  | 

/program  object/  IS  /program  object/ 
/expression  /  *  *  /expression  / j 

{logical  expression)  ) 

: {program  object  data  item)  | 

/object  or/  //arithmetic/  \  I 
/class  name/  ^/expression/  \ 

(  {  program  object  expression)  ) 


24 


(data  item^ 


(single  variable  narae^| 
(symbolic  dimension  name^j 
(subscripted  array  narae^j 
(subscripted  vector  name^| 
(function^  I  (constant^ 


(subscripted  array  name)  /array-type\  /  /subscrlpt\  \ 

x  7  \name  /  v  \llst  /  1 

(subscripted \  /vector-type\  /  /subscript  \  /arlthmetlc\  \ 

vector  name/  \name  /  '  \llst  /  ^expression/  ' 


<’ 

4 


array-type  name 


vector- type  name 


(' 


vector  component  name 


array  name^  | 

(/ector  name^ 

(contingent -event -with- list  name 


» 


<’ 


list  name^ 


(permanent-event-wlth-llst  name^ 


,\ 


>1 


(subscript  llst^  (subscript)* 


(subscript/  /arithmetic  \ 

'  \expresslon/ 


(?^rrlPt>  •  (^subscript) 


/program  obJect\ 
^expression  / 


(function^  (external  procedure  nam^  (  (argument  llst^  )j 

(open  procedure  name^  (  (argument  llst^  )| 
(external  procedure  name)  I  (open  procedure  nam^ 
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^argument^  ^argument  11  s t^  ,  ^argument 


^vector-type  name^ 
^array-type  nara«^  I  /object  or  class  name^ 


^expresslory 


^statement  label  name^ 


Functions 

A  function  Is  a  procedure  whose  execution  Is  Implied 
by  Its  use  In  an  expression.  Execution  of  the  function  always 
returns  a  single  value  which  replaces  the  function  In  the 
expression. 

Arguments  to  a  function  must  correspond  In  type  and 
order  to  those  expected  by  the  procedure. 

A  name  whose  type  Is  not  otherwise  declared  Is 
Implicitly  declared  to  t*)  an  external  procedure  (function)  when 
It  appears  with  an  argument  list  In  an  expression. 
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Standard  Functions 

Several  functions  are  pre -defined  in  MILITRAN, 
and  reference  to  their  names  automatically  produces  either 
open  coding  or  calling  sequences  to  library  subroutines. 
These  functions  are  described  below.  Values  are  returned 
in  the  same  mode  as  the  arguments  except  where  noted. 
Arguments  must  be  REAL  except  where  noted. 

ABS  (v)  returns  |  v  |  .  The 
argument  v  may  be  either 
REAL  or  INTEGER. 

ATAN  (v^Vg)  returns  the  angle 
OL  whose  tangent  is 
(0  <  a  <  2TT  ) . 

COS  (v)  returns  cos  v. 

EPSILON  (v)  returns  (v+  £  ) 
where  £  is  the  smallest  increment 
physically  recognizable  in  v.  Argument 
v  may  be  either  REAL  or  INTEGER. 

(  £  s  1  when  v  is  integer.) 

EXP  (v)  returns  e  where  e  is 
the  Naperian  base. 
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INTEGER  (v)  returns  the 
largest  Integer  1  such 
that  |i|  <  | v |  .  Argument  v 

may  be  either  REAL  or  INTEGER. 
Result  1  Is  returned  In  INTEGER 
mode . 

LOG  (v)  returns  the  natural 
logarithm  of  v. 

MAX  (vi>v2' • • • >vj )  returns 
the  maximum  value  among 
the  arguments  (v^, ...,Vj). 
Arguments  may  be  REAL 
or  INTEGER. 

MIN  (vi>v2> . . . > Vj)  returns 
the  minimum  value  among 
the  arguments  (v1#...,Vj). 
Arguments  may  be  REAL  or 
INTEGER . 

RANDOM  returns  a  REAL 
pseudo -random  value,  v, 

(0  <  v  <  1). 


REAL  (v)  returns  the  value 
of  v  In  REAL  mode.  The 
argument  v  may  be  either 
REAL  or  INTEGER.  (  |  v  |  <  227. ) 


SIGN  (v^jV^)  returns  the  value 


If  v2*0. 


If  v 


SIN  (v)  returns  sin  v. 


SORT  (v)  returns 


TAN  (v)  returns  tan  v. 

(Values  exceeding  the  maximum 
possible  REAL  value  are 
truncated  to  that  maximum. ) 
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Subscripts 

Retrieval  of  specific  data  Items  from  arrays  and 
vectors  Is  accomplished  by  means  of  subscripts.  Types  of 
names  requiring  subscripts  fall  Into  two  groups  as  follows: 

Array-type  Vector- type 

Array  Vector 

Vector  component  List 

Contingent  event  with  list 
Permanent  event  with  list 

Array-type  names  require  exactly  as  many  subscripts 
as  they  have  dimensions.  Consider  the  statement 

REAL  n(d^, . . . , d^  > . • • $ d^ ) 

which  defines  the  name  n  to  be  an  m-dimensional  array.  Re¬ 
trieval  of  a  single  member  of  n  would  be  accomplished  by  the 
expression 

n(e1,...,e1,...,em) 

occurring  elsewhere  In  the  program.  The  expressions  e^,...,em 
are  subject  to  the  following  rules: 

1.  Any  expression  e^  may  be 
an  arithmetic  expression. 

2.  Expression  e^  may  be  a  pro¬ 
gram  object  expression  If 
and  only  If  dimension  d^ 

Is  an  object  or  class  name. 
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Vector-type  names  require  one  more  subscript 
than  they  have  dimensions.  Consider  the  statement 

VECT0R  n( ( c ^ ^ ^  c ^  c^ )  ^  d ^ ^ ^  d  ^  j « . • > ) 

which  defines  the  name  to  be  an  m-dimensional  vector  having 
k  components.  Retrieval  of  a  single  member  of  n  would  be 
accomplished  by  either  of  the  expressions 

n  (e1,...,e1,...,«m,em+1) 

Cj(e1# . . .,e1# . . .#em) 

occurring  elsewhere  in  the  program.  The  expressions 
cl'**,,era  are  8ubJect  to  the  san»e  rules  as  are  subscripts 
for  array-type  names.  The  expression  must  be  arithmetic 

and  equal  to  j. 
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PROCESS INO 

Processing  statements  are  summarized  In  this 
section.  They  Include: 

PLACE  REPLACE 

PLACE  ENTRY  REPLACE  ENTRY 

REMOVE  RESET  LENGTH 

REM0VE  ENTRY  Substitution 

Substitution 

All  substitution  statements  take  the  form 
a  -  b 

where  a  Is  a  subscripted  or  unsubscrlpted  name  and  b  Is  an 
expressions.  The  name  "a"  may  not  be  an  object,  class, 
permanent  event  without  list,  statement  label,  procedure, 
external  procedure,  or  open  procedure. 

The  following  processing  may  be  accomplished 
through  a  substitution  statement: 

1.  If  a  and  b  are  of  the  same  mode,  the  value 
of  expression  b  replaces  the  value  of  a. 

2.  If  a  and  b  are  both  subscripted  vector-type 
names,  the  contents  of  b  replace  the  contents 
of  a  without  regard  to  mode.  ("Contents" 

as  used  above  refers  only  to  a  single  value, 
not  the  entire  array. ) 

3.  If  a  Is  real  and  b  Is  Integer,  the  value  of 
expression  b  Is  converted  to  a  real  number 
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and  replaces  the  value  of  a. 

4.  If  a  Is  Integer  and  b  Is  real,  the  value  of 
expression  b  Is  truncated  to  an  Integer  and 
replaces  the  value  of  b. 

Conditions  3  and  4  above  apply  only  when  condition  2  does 
not . 

List  Processing 

Vector-type  names  defined  In  LIST,  C0NTINGENT 
EVENT,  and  PERMANENT  EVENT  statements  represent  groups  of  values 
which  may  be  processed  by  means  of  special  "list  processing 
statements. " 

In  the  discussion  of  list  processing  statements 
which  follows,  all  descriptions  will  refer  to  the  generalized 
lists  defined  by 

LIST  m ( (m^ , ...,m^,... ,ro j ) , d^) >n((n^,»»», n^ ,  •  •  • , n^ ) d^ ) 

The  symbols  designating  the  lists  and  components  defined 
above  will  be  maintained  throughout  the  discussion. 

List  Entries 

i.U 

The  list  m  may  contain  dm  entries.  The  entry 
In  list  m  Is  the  set  of  values. 

m1(e),m2(e),,..,raj(e) 

The  current  number  of  entries  In  list  m  Is  represented  by 
the  function 


LENGTH (m) 
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which  Is  Initially  equal  to  zero  for  all  lists. 

Any  value  In  the  group  represented  by  the  name 
m  may  be  altered  by  means  of  a  substitution  statement. 
However,  substitution  statements  do  not  maintain  the 
LENGTH  function  and  list  processing  statements  consider  the 
e^  entry  valid  only  If  1<  e<  LENGTH(m) . 

List  Processing  Conditions 

Several  statements  and  functions  Involved  In  list 
processing  depend  upon  logical  conditions  of  the  form 

(b^ ,bg, • • • ,b^,b^) 

where  k  Is  the  number  of  components  In  the  list. 

The  entry  of  list  n  Is  said  to  meet  the 
condition  (b, , . . . ,bk,bx)  If  an  only  If 

1.  b^  .EQV.TRUE  for  l<  1  <  k;  and 

2.  b  .EQV.TRUE 

A 

The  logical  expression  b^  may  Involve  the  current  value  of 
n^e),  which  value  Is  represented  In  b^  by  an  asterisk. 

The  logical  expression  b^  may  Involve  e,  which  value  Is 
represented  In  b  by  an  asterisk.  Since  more  than  one 

A 

entry  In  list  n  may  meet  the  condition  (b. , . . .  ,bj(,b  ),  the 
entry  number  "e"  Is  never  used  explicitly. 

The  following  abbreviations  are  permitted  In  the 

construction  of  list  processing  conditions: 

1,  Omitted  expressions  are  assumed  to  be  TRUE; 
e.g. ,  the  conditions  (TRUE, TRUE)  and  (,)  are 
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equivalent . 

2.  Commas  separating  identically  true 
expressions  at  the  end  of  the  condition 
may  be  omitted;  e.g. ,  the  conditions 
(bi^bg,  TRUE, TRUE)  and  (b1,b2)  are 
equivalent . 

3.  The  expression  "*.E.a,"  where  a  is  an 
arithmetic  expression,  may  be  represented 
by  "a . " 

4.  The  expression  "*.IS.a",  where  a  is  a 
program  object  expression,  may  be  re¬ 
presented  by  "a,” 

5.  The  expression  '.'IN, a,”  where  a  is  an 
object  or  class  name,  may  be  represented  by 

n_  tt 

a. 

A  condition  may  be  restricted  by  the  use  of  the 
functions  GST  and  LST.  One  and  only  one  expression  in  a 
condition  may  be  subjected  to  a  GST/LST  restriction.  Every 
condition  containing  GST  or  LST  is  met  by  no  more  than  one 
entry  in  list  n. 

1.  (b., . .  .,GST(b1  ), . .  .,bk,bx)  refers  to  that 
entry  whose  n.  is  the  greatest  n.  among  all 
entries  meeting  condition  (b^, . . .,bi, . ..,bk,bx) . 

2.  (b1,...,LST(b1), ...,bk,bx)  refers  to  that 
entry  whose  n^  is  the  least  among  all 
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entries  meeting  condition 
(b^,  •  •  •  #b^,  •  •  •  *^y£»bx)  * 

3.  (b^, . ..,bk,OST(bx))  refers  to  the 
highest  numbered  entry  meeting 
condition  (b1, . . .  ,bJc,bx) . 

4.  (b^, . .  ,,bjc,LST(bx) )  refers  to  the 

lowest  numbered  entry  meeting 
condition  (b^, . . , ,bk,bx) . 

Where  expression  b^  is  subjected  to  a  OST/LST 
condition,  component  n^  must  be  of  real  or  integer  mode. 

Where  duplicate  minima  or  maxima  occur,  the  lowest  numbered 
entry  is  chosen. 

Place,  Place  Entry 

Execution  of  the  statement 

PLACE (c^,...,c^,...,c^)  IN  n 

causes  the  current  value  of  LENGTH(n)  to  be  Increased  by  one 
and  the  values  c^,...,c,  to  replace  current  values  of 
n^(LENGTH(n) ), . . . ,np(LENGTH(n) ) .  The  number  of  expressions 
(p)  may  not  exceed  the  number  of  components  (k)  in  list  n. 
Expression  cA  must  be  of  the  same  mode  as  component  n^  for 
1<  i<  p. 
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Execution  of  the  statement 
PLACE  ENTRY  m(e)  IN  n 

ie  identical  in  a  processing  sense  to  execution  of 
PLACER (e), . .  .,nip(e) )  IN  n 

where  p  is  equal  to  the  smallest  number  of  components 
contained  in  either  list  (m  or  n). 

Remove,  Remove  Entry 

Execution  of  the  statement 

REM0VE  (b1,...,bk,bx)  FR0M  n 

will  cause  all  entries  meeting  condition  (b^, . . . ,bk,bx) 
to  be  removed  from  liBt  n. 

Execution  of  the  statement 

REM0VE  ENTRY  n(e) 

f  U 

will  cause  the  e^  entry  in  list  n  to  be  removed. 

For  every  entry  removed  from  list  n,  the  value 
of  the  function  LENGTH(n)  1b  reduced  by  1.  Rearrangement 
of  the  list  to  eliminate  blank  entries  is  performed  where 


neceBBary 
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Replace,  Replace  Entry 

Execution  of  the  statement 

REPLACE  ENTRY  n(e)  BY  (c]L,...,cp) 

causes  the  values  of  n^  (e), . .  ,,rip(e )  to  be  replaced  by 
the  values  of  expressions  c,,...,c  .  The  number  of  ex- 

*  if 

presslons.  (p)  raay  not  exceed  the  number  of  components  (k) 

In  list  n.  Modes  of  expression  c^  and  component  n ^  must 

match  for  1<  i  <  p.  The  value  of  n^(e)  before  replacement 

may  be  represented  in  expression  c^  by  an  asterisk. 

Execution  of  the  statement 

REPLACE  ENTRY  n(e][)  BY  ENTRY  m(e2) 

causes  values  m1(e2), .. .,rap(e2)  to  replace  the  current 
values  n1(e1), . ,.,np(e1),  where  p  is  the  smallest  number 
of  components  contained  in  either  list  (m  or  n). 

The  two  statements 

REPLACE  ENTRY  n(e][)  BY  ENTRY  (e2) 

REPLACE  ENTRY  n(e][)  BY  ENTRY  n(e2) 


are  identical  in  a  processing  sense 
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Execution  of  the  statements 

REPI«ACE(b1,  ...,bjc,bx)  BY  (c1,...,cp)  IN  n 
REPLACE (b1,...,bk,bx)  BY  ENTRY  m(e)  IN  n 
REPLACE (b1,...,bk,bx)  BY  ENTRY  (e)  IN  n 

cause  replacement  of  every  entry  In  list  n  which  meets 
condition  (b^, . . .,bk,bx).  Replacement  Is  accomplished 

In  exactly  the  same  manner  as  by  corresponding  REPLACE 
ENTRY  statements. 

Reset  Length 

Execution  of  the  statement 
RESET  LENGTH  (n)  T^e 

will  arbitrarily  reset  the  value  of  function  LENGTH (n) 
to  the  positive  Integer  value  of  arithmetic  expression  e. 

Use  of  this  statement  is  required  only  when  non¬ 
list-processing  statements  have  been  used  to  enter  values  in 
list  n  or  when  the  programmer  wishes  to  ignore  entries  beyond 

the  e^  entry* 
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List  Entry  Locating  Functions 

Two  MILITRAN  functions  operate  directly  upon 
list  processing  conditions.  These  functions  are  used 
within  the  context  of  an  expression  as  are  the  functions 
discussed  under  EXPRESSIONS. 

The  functions 

MINIMUM  INDEX  (n(br  . . .  ,\,\)  >  s ) 

RANDOM  INDEX  (n(b1, . . .  ,s) 

return  an  Integer  value  designating  an  entry  In  the  list 
n  which  meets  the  condition  (b., . . . ,bk,bx) .  If  no  such 
entry  exists,  control  transfers  Immediately  to  the  state¬ 
ment  labelled  s. 

The  distinction  between  MINIMUM  INDEX  and  RANDOM 
INDEX  obtains  only  when  more  than  one  entry  In  list  n 
satisfies  condition  (b^, . . . ,b^,bx) .  MINIMUM  INDEX  chooses 
the  lowest  numbered  entry  meeting  the  condition j  RANDOM 
INDEX  chooses  one  entry  at  random  from  all  those  meeting 
the  condition. 

MINIMUM  INDEX  may  be  shortened  to  INDEX  without 


loss  of  meaning 


input/ output 


Input/output  statements  are  summarized  in  this 
section.  They  include: 

BACKSPACE 
BACKSPACE  FILE 
BINARY  READ 
BINARY  WRITE 
END  FILE 
F/RMAT 

Logical  Unit  Designations 

Input /output  units  are  designated  in  MILITRAN 
source  programs  as  follows: 

Tape  Units  by  positive  integers; 

Line  printer  by  the  name  PRINTER; 

Card  reader  and  punch  by  the  name  CARDS. 

Tape  Control  Statements 

Statements  whose  execution  causes  tape  units  to 
perform  operations  not  involving  transfer  of  data  are  tabu¬ 
lated  below.  In  all  cases,  the  designation  t  is  an  arithme¬ 
tic  expression. 


READ 

READWRITE 

REWIND 

UNLOAD 

WRITE 


Statement 

Effect 

BACKSPACE  (t) 

Designated  tape  unit 
backspaces  one  record.* 

BACKSPACE  (t) 

Designated  tape  unit 
backspaces  until  an  end-of-file 
mark  is  passed.* 

END  PILE  (t) 

An  end-of-file  mark  is 
written  on  the  designated 
tape. 

REWIND  (t) 

Designated  tape  unit  rewinds.* 

UNLOAD  (t) 

Designated  tape  unit  rewinds 
and  becomes  inoperative. 

Statements  marked  with  an  asterisk  have  no  effect 
if  designated  tape  unit  is  fully  rewound. 
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Input/Output  Llata 

Input/output  statements  which  involve  transfer  of 
data  between  the  computer  and  external  devices  require  a  list 
of  those  items  which  are  to  be  transferred.  All  such  lists 
are  identically  constructed.  The  summary  below  utilizes  the 
notation  previously  used  to  describe  expressions. 


(i/O  list) 


«  « 

•  •  1 


^expression)  |  (  (l/O  list)  )  | 

(i/O  list)  ,  ( I/O  list)  | 

((  ( I/O  list)  )  ^implied  DO  loop)  ) 

(l/O  list)  ,  ^void) 


/ impliedX  . . 
\DO  loop/**" 


wota  /Program  object  \  ^  /object  or  \ 

pl°n  \  alntrla,  no  mo  )  •  •LW  • 


\ single  variable  name^ 


\class  name/ 


^terminating  condition) | 

^terminating  condition)  ,  ^index)  J 

(tlZlTiT1) .  <lndex> 


^express  ior^j 


^expression)  ,  ^expressions 


^terminating  condition)  UNTIL  ^logical  expressioi) 

A  A  ..  /any  expression  permitted  on  the  left\ 

\in  /  **"  \  side  of  a  substitution  statement  / 
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Binary  Read,  Binary  Write 

The  statements 

BINARY  READ  (t)  data 
BINARY  WRITE  (t)  data 

where  the  "data"  Is  any  Input/output  list,  cause  reading 
or  writing  in  binary  form  on  magnetic  tape.  The  expression 
t  must  designate  a  tape  unit. 

Binary  reading  and  writing  are  performed  without 
conversion,  l.e. ,  items  are  handled  in  their  exact  internal 
form.  Each  BINARY  WRITE  statement  writes  a  logical  block 
of  data  on  tape  whose  length  is  dependent  upon  the  number 
of  items  in  the  input/output  list.  A  BINARY  READ  statement 
may  read  only  one  logical  block.  If  fewer  Items  are  read 
than  are  contained  in  the  block,  the  remaining  items  in  the 
block  are  skipped. 
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Read,  Write 

The  statements 

READ  (t,s)  data 
WRITE  (t,s)  data 

cause  reading  or  writing  of  information  on  the  input/output 
unit  designated  by  the  expression  t  according  to  a  format 
specified  in  a  FORMAT  statement  which  has  the  label  s.  Data 
must  be  specified  by  an  input/output  list. 

Hie  statement 

READWRITE(t1,s^, t2,s2)  data 
is  identical  in  a  processing  sense  to  the  statements 

READ  (t^s,)  data 
WRITE  (tgjSg)  data 
executed  in  the  order  shown. 
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Format 


Formats  for  data  transferred  by  READ,  WRITE,  AND 
READWRITE  statements  are  specified  by  statements  of  the  form 

s  FORMAT  (Specification) 

The  label  s  is  required,  since  it  is  the  only  link  between 
the  READ  or  WRITE  and  its  associated  FjtfRMAT. 

Hie  specification  portion  of  a  FORMAT  statement 
consists  of  a  series  of  fields  and  punctuation  marks  which 
indicate  the  form  and  placement  of  data  in  external  records. 

Fields  are  of  two  types:  data  and  non -data. 

Data  fields  specify  transmission  of  data  to  or  from  items 
in  the  input/output  list.  Non-data  items  involve  transfer 
only  between  the  FORMAT  statement  and  external  records.  Data 
fields  must  be  separated  from  succeeding  fields  by  commas, 
while  non-data  fields  need  not  be. 

Field  groups  may  be  repeated  through  the  use  of 
parentheses.  The  notation  "n  (sub-specification)"  will  cause 
the  group  in  parentheses  to  be  repeated  n  times.  If  n  is 
absent,  the  group  is  repeated  indefinitely.  The  sub-specif ica 
tion  may  not  contain  parentheses. 

Hie  end  of  any  parentheses  without  a  specific  number 
of  repetitions  (n)  normally  signifies  the  end  of  a  record. 

Hie  specification  for  the  next  record  starts  from  the  corres- 
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ponding  open  parentheses.  Additional  changes  of  record  may 
be  specified  by  a  slash  (/).  Two  consecutive  slashes  Indicate 
a  blank  record. 

During  execution  of  a  READ,  WRITE,  or  READWRITE 
statement.  Input/output  lists  and  FgteMAT  specifications 
are  simultaneously  scanned  from  left  to  right.  Each  data 
Item  In  the  Input/output  list  corresponds  to  a  data  field 
In  the  FgfRMAT  specification,  correspondence  being  established 
solely  by  order  of  occurrence.  Transmission  ends  when  the 
Input/output  list  Is  satisfied. 

Voids  In  the  Input/output  list  cause  the  corres¬ 
ponding  data  fields  to  be  skipped  (Input)  or  filled  with 
blanks  (output).  An  Input/output  list  which  consists  solely 
of  an  Implied  "DO-loop"  will  cause  tape  motion  only  If  at 
least  one  Item  of  data  Is  transferred.  If  an  Input/output 
list  results  In  reading  of  a  partial  record,  the  remainder 
of  the  record  Is  skipped. 

Non -data  fields  are  designated  by  the  letters 
X  or  H.  Ihe  specification  wx  causes  w  characters  to  be 
Ignored  on  Input  or  assumed  blank  on  output.  The  specifica¬ 
tion  wH  must  be  followed  Immediately  by  w  characters  which 
will  be  copied  literally  from  F0kMAT  statement  to  record 
(output)  or  vice-versa  (input). 


Data  fields  are  designated  by  specifications 
of  the  form  ncw.d  where  n  Is  the  number  of  fields,  c  Is 
an  identifier  designating  field  type,  w  is  the  field  width, 
and  d  is  a  supplementary  width.  The  supplementary  width  is 
not  required  for  some  fields.  The  number  of  fields  is 
assumed  to  be  1  if  absent.  Basic  field  types  are  summarized 
below.  Source  and  target  addresses  referred  to  in  the  table 
are  items  in  the  input/output  list  and  are  discussed  in  de¬ 
tail  immediately  following  the  table.  The  number  of  charac¬ 
ters  in  the  external  record  covered  by  any  field  is  always 
equal  to  the  field  width. 
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Field 

Specification  Interpretation 

Aw  External  field  contains  alphameric  data; 

Internal  representation  will  be  BCD  code. 
Input:  The  rightmost  six  characters  from 
the  field  replace  data  at  the  target  address. 
If  w  Is  less  than  six,  w  characters  are  left 
Justified  and  filled  to  six  characters  with 
blanks. 

Output:  Six  characters  from  the  source 
address  are  right  Justified  In  the  field. 
Remaining  characters  are  blank.  If  w  is 
less  than  six,  the  leftmost  w  characters 
from  the  source  address  are  used. 

Iw  External  field  contains  decimal  Integer; 

Internal  representation  Is  Integer  data. 
Input:  All  blanks  are  considered  zero. 
Output:  Leading  zeroes  are  replaced  by 
blanks. 

fa  External  field  contains  octal  Integer; 

Internal  representation  Is  Integer  data. 
Input:  All  blanks  are  considered  zero. 
Output:  Leading  zeroes  are  replaced  by 
blanks. 

Lw  External  field  contains  word  beginning 

with  T  or  F;  Internal  form  Is  logical. 

Input:  T  or  F  In  field  results  In  trans¬ 
fer  of  TRUE  or  FALSE  to  target  address. 
Output:  TRUE  or  FALSE  at  source  address 
causes  T  or  F  to  be  right  Justified  In 
field.  Remainder  of  field  Is  filled  with 
blanks. 
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Field 

Specif loatlon  Effect 


Jvr.d 

External  form  is  the  name  of  an  object 
and  its  ordinality;  internal  form  is 
a  program  object  value. 

Input:  Field  is  scanned  from  left  to 
right  until  w-d  characters  are  read  or 
a  left  parenthesis  appears.  Scanned 
characters  (blanks  ignored)  are  com¬ 
pared  with  names  of  all  0BJECT  types  in 
program.  Digits  following  a  left  parenthe¬ 
sis,  or  the  rightmost  d  characters,  are 
assumed  to  be  the  ordinality.  Program 
object  value  constructed  and  transmitted 
to  target  address. 

Output:  Ordinality  of  source  address  value 
is  converted  to  decimal  integer,  enclosed 
in  parentheses,  and  placed  in  rightmost  d+2 
characters  of  field.  Object  name  is  right 
adjusted  in  leftmost  w-d-2  characters.  Re¬ 
mainder  of  field  is  blank. 

JW 

Input:  Ordinality  is  assumed  unity  if  no 

left  parenthesis  appears. 

Output:  Only  object  name  appears  in  field. 

Fw.d 

External  form  is  decimal  number;  internal 
form  is  real. 

Input:  Decimal  point  is  assumed  d  characters 
from  the  right  unless  present.  .. 

Output:  Decimal  point  is  inserted  as  d— 
character  from  the  right. 

Ew.d 

External  form  is  decimal  number  and  exponent. 
Internal  form  is  real. 

Input:  Number  is  assumed  to  have  the  form 
xxxx+xx  where  sign  separates  base  value  and 
exponent.  Base  value  times  ten  to  exponent 
value  is  transmitted  in  real  mode  to  target 
address.  Exponent  is  assumed  unity  if  absent 
Decimal  point  in  base  value  is  assumed  such 
that  d  digits  are  fractional  unless  decimal 
point  appears  explicitly.  Exponent  may  have 
one  or  two  digits. 

Output:  Field  has  the  form  .xxxxE+xx,  where 
decimal  point  falls  to  the  left  of  the  dth 
character  in  the  base  value. 
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Data  fields  of  type  E,F,I,  and  0  may  be  signed. 
Missing  sign  :Ls  assumed  plus  on  Input;  plus  sign  Is  not 
written  on  output. 

Source  and  target  addresses  are  determined  by 
Items  In  the  Input/output  list.  A  source  address  is  a  value 
to  be  written;  a  target  address  is  a  position  into  which  a 
value  Is  to  be  read. 

All  source  addresses  yield  either  the  value  of 
an  expression  or  a  void.  Fields  corresponding  to  voids  in 
the  input/output  list  will  be  blank. 

A  target  address  is  implicitly  void  if  the  expression 
corresponding  to  it  contains  any  operator,  external  procedure, 
or  open  procedure  outside  of  its  subscripts.  Fields  corres¬ 
ponding  to  voids  are  ignored. 
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CONTROL 


Statements  whose  major  function  is  the  oontrol 
of  program  operating  sequenoe  are  summarized  in  this  section. 
They  include: 

CONTINUE 

DO 

END 

END  CONTINGENT  EVENTS 
END  FILE  RETURN 
ENI)  RECORD  RETURN 
EXECUTE 
GO  TO 

Go  To 

Execution  of  the  statement 
GO  TO  s 

oauses  the  program  to  continue  from  the  statement  whose 
label  is  s.  In  the  disoussions  which  follow,  this  opera¬ 
tion  will  be  described  as:  "Control  is  transferred  to  s. 

If,  Unless 


IF 

NEXT  EVENT 

NEXT  EVENT  EXCEPT 

PAUSE 

RETURN 

STOP 

UNLESS 


Execution  of  either  of  the  statements 
IP(b),x,y 
UNLESS  (b),y,x 
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will  transfer  control  to  x  If  logical  expression  b  has 
the  value  TRUE,  to  y  If  b  Is  FALSE.  The  second  comma 
and  label  may  be  omitted.  In  which  case  the  statement 
Immediately  following  the  IF  or  UNLESS  Is  assumed. 
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Pause,  Stop 

Execution  of  the  statement 
PAUSE  n 

causes  the  computer  to  stop  with  the  octal  number  n 
displayed.  Execution  may  be  restarted  by  manual  means. 

Number  n  may  not  exceed  30000  octal. 

Execution  of  the  statement 

ST0P 

causes  execution  of  the  program  to  be  terminated.  Restart 
cannot  be  effected. 

Execute,  Return 

The  PROCEDURE  statement,  described  under  STRUCTURE, 
is  used  to  define  MILITRAN  programs  whose  operation  is  to  be 
controlled  by  other  programs.  The  control  statements  EXECUTE 
and  RETURN  implement  control  of  such  programs. 

Execution  of  the  statement 

EXECUTE  n(a1,a2, ,,.,am) 

will  cause  control  to  be  transferred  to  the  PROCEDURE  whose 
name  corresponds  to  the  first  six  characters  of  the  name  n. 
Arguments  a^,a2>...>am  must  correspond  in  mode,  type,  and 

order  to  the  dummy  arguments  of  the  procedure.  The  name  n  is 
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declared  by  Its  appearance  In  an  EXECUTE  statement  to  be 
an  external  procedure  name. 

In  a  program  which  is  a  procedure,  execution  of 
the  statement 


RETURN 

will  return  control  to  the  program  in  which  the  EXECUTE 
statement  appears. 

Procedures  which  are  used  as  functions  (see  under 
EXPRESSIONS)  must  return  a  value  to  the  executing  program. 
The  statement 


RETURN  e 

where  e  is  an  expression  accomplishes  transfer  of  both  con¬ 
trol  and  the  value  of  e. 


55 


Do,  Continue 

Execution  of  the  statement 

D0  (s)  UNTIL  b,  i  -  ei*e2 

causes  iterative  execution  of  statements  following  the  D0  up 
to  and  including  the  statement  labelled  s.  Before  the  first 
iteration,  index  i  will  be  set  to  the  value  of  expression  e^j 

before  subsequent  iterations,  index  i  will  be  incremented  by 
the  value  of  expression  e2.  Index  i  may  be  any  unsubscripted 

or  subscripted  name  of  type  single  variable,  array,  vector, 
list,  or  event  with  list. 

If  at  the  beginning  of  any  iteration  the  value  of 
logical  expression  b  is  TRUE,  control  transfers  immediately 
to  the  statement  following  s. 

Execution  of  the  statement 

D0  (s)  F0R  a.IN.b 

causes  iterative  execution  of  statements  following  the  Dtf 
up  to  and  including  the  statement  labelled  s.  The  single 
variable  a  must  be  of  program  object  mode  and  will  successively 
assume  the  identity  of  all  members  of  the  object  or  class  b. 

When  all  members  of  b  have  been  represented  by  a, 
control  transfers  immediately  to  the  statement  following  s. 
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In  both  forms  of  the  D0  statement  above  it  is 
necessary  that  the  statement  labelled  s  permit  control  to 
pass  through  it  to  the  next  statement.  Thus  the  statements 
Off  T0,  NEXT  EVENT,  and  IP  or  UNLESS  with  two  labels  are 
prohibited  as  terminal  statements  of  a  D{!  loop. 

Restrictions  on  statements  terminating  D0  loops 
do  not  limit  the  variety  of  processing  arrangements  possible, 
since  the  statement 

CONTINUE 

can  be  used  at  any  point  in  a  program.  This  statement  per¬ 
forms  no  operations  and  requires  no  space  in  the  computer. 

Its  label,  however,  may  be  used  to  terminate  a  Dff  loop. 

Other  D0  statements  may  appear  between  one  D0  and 
its  terminating  statement,  but  the  "inner"  loop  must  terminate 
at  or  before  the  end  of  the  "outer"  loop. 
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End,  Next  Event,  Next  Event  Except 

A  group  of  executable  statements  beginning  with 
one  of  the  statements 

CJ2*NTINGENT  EVENT  n(  (c^Cg, . . .  ,c  j  ),d ) 

PERMANENT  EVENT  n( (c^Cg, . . . ,c j ),d) 

PERMANENT  EVENT  n 

and  ending  with  the  statement 

END 

Is  known  In  M]XITRAN  as  an  "event,”  Depending  upon  the 
Initial  statement,  the  event  Is  either  a  "contingent  event" 
or  a  "permanent  event," 

Events  are  processed  In  a  sequence  determined  by 
the  structure  of  the  MILITRAN  source  program.  The  "natural" 
or  unmodified  sequence  Is : 

1.  The  first  permanent  event  In  the 
program. 

2.  Subsequent  permanent  events  In 
the  order  of  their  appearance  In 
the  program. 

3.  The  last  permanent  event  In  the 
program. 

4.  The  "next  contingent  event". 
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This  sequence  is  repeated  until  terminated  by  either  failure 
to  select  a  "next  contingent  event"  or  transfer  of  control 
to  a  portion  of  the  program  not  in  any  event. 

It  is  not  required  that  a  program  have  any  minimum 
number  of  pennanent  or  contingent  events.  In  the  discussion 
which  follows,  we  will  assume  that  irrelevant  items  in  the 
natural  sequence  are  ignored. 

Selection  of  the  "next  contingent  event"  is  depend¬ 
ent  upon  the  current  value  of  TIME.  Of  all  entries  in  all 
contingent  event  lists,  one  is  selected  whose  first  component 
exceeds  TIME  by  the  smallest  positive  value.  The  first  compo¬ 
nent  is  assumed  to  be  of  real  mode;  duplicate  minima  within 
one  event  cause  the  entry  of  least  index  to  be  chosen;  dupli¬ 
cate  minima  in  more  than  one  list  cause  an  entry  to  be  chosen 
from  the  event  which  appears  earliest  in  the  natural  sequence. 

Execution  of  the  statement 

NEXT  EVENT 

causes  control  to  be  transferred  to  the  next  event  in  the 
natural  sequence.  If  the  NEXT  EVENT  statement  is  not  itself 
contained  in  an  event,  control  is  passed  to  the  first  permanent 


event 
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Hie  statements 

NEXT  EVENT  (n^rig,  . . .  ,1^) 

NEXT  EVENT  EXCEPT  (n^n^  . . .  ,1^) 

behave  exactly  as  does  the  NEXT  EVENT  statement,  but  modify 
the  natural  sequence.  NEXT  EVENT  EXCEPT  will  assume  that 
events  n^,n2>  ...,nJn  do  not  exist.  NEXT  EVENT  (n^,n2, . . . ,nm) 

will  assume  that  only  the  events  named  In  parentheses  exist 
and  that  they  occur  In  the  order  listed. 

When  control  Is  transferred  to  a  contingent  event 
by  means  of  an  event  sequencing  statement,  the  values  of 
TIME,  ATTACKER,  TARGET,  and  INDEX  are  automatically  set. 
Assuming  that  control  has  been  transferred  to  CONTINGENT 

Vi 

EVENT  n  (above)  because  its  1—  entry  contains  the  minimum 
first  component,  then: 

TIME  -  c^i) 

ATTACKER  -  c2(i) 

TARGET  -  c3(i) 

INDEX  -  1 

Transfer  of  values  above  is  made  without  respect  to  modes, 
e.g.,  ATTACKER  is  not  valid  unless  c2  is  of  program  object 


mode 
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End  Contingent  Events,  End  File  Return,  End  Record  Return 

Certain  conditions  occurring  during  the  running 
of  a  program  are  detected  as  errors  by  the  program.  Three 
of  these  conditions  are: 

1.  In  attempting  to  choose  a  "next 
contingent  event, "  the  program 
finds  no  entries  whose  values 
equal  or  exceed  the  current  value 
of  TIME. 

2.  In  reading  from  magnetic  tape,  the 
program  encounters  an  end -of -file 
mark  on  the  tape  before  the  Input/ 
output  list  Is  satisfied. 

3.  In  executing  a  BINARY  READ,  the  end 
of  a  logical  block  is  encountered 
before  the  Input/output  list  is 
satisfied.  (See  under  BINARY  READ) 

In  all  of  the  above  cases,  control  is  normally 
wrested  from  the  program  and  execution  is  terminated.  How¬ 
ever,  execution  of  the  statements 

END  CgtoTINGENT  EVENTS  (S) 

END  PILE  RETURN  (S) 

END  RECORD  RETURN  (S) 
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causes  the  program  to  be  modified  in  such  a  way  as  to 
return  control  to  the  statement  labelled  s  if  and  when 
the  appropriate  error  condition  occurs. 
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COMPILER 


Statements  whose  function  Is  providing  Informa¬ 
tion  to  the  processor  are  summarized  in  this  section. 
These  essentially  machine -dependent  statements  are: 

END  COMPILATION 
SUSPEND  FAP  LISTING 


End  Compilation 

The  statement 

END  COMPILATION 

signals  the  end  of  a  MILITRAN  source  program.  The  statement 
may  not  contain  comments  and  may  not  occupy  more  than  one 
card. 


Columns  73-75  of  the  END  COMPILATION  card  will  be 
preserved  and  used  to  Identify  the  translated  program. 

Suspend  FAP  Listing 

The  statement 

SUSPEND  FAP  LISTING 

appearing  anjwhere  in  a  MILITRAN  source  program  will  cause 
listing  of  the  translated  program  to  be  omitted  by  the 


processor 
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Environment  Declarations 

REAL  n^  \  ^"2*  •  •  •  *  '  *  *  *  *  *^m  lg  *  •  •  •  *  ^  j  ) 

INTEGER  n1  (l^  *  Ig*  *  *  *  *  ^ic  ^ *  *  *  *  * lg*  •  •  •  *  ^  j ) 

LOGICAL  n^ (l^> lg *  •  •  •  * ) *  •  •  •  t ( 1^ * ig* 

OBJECT  n^  (l^  J^ng (lg )#  •  •  •  * *^jjj (^jjj) 

PROGRAM  OBJECT  n^  (l^jl2*  •  •  •  *  1^) >  •  •  •  ,»n^(l^f  12*  • 

CLASS  (c)  CONTAINS  a±,a2, . . . ,a 

NORMAL  MODE  m^  *  •  •  / )  t ®g  *  Lg  *  *  *  *  * ^j>  ) 

VECTOR  n  ( (fl^>82>  •  • 

COMMON  nL,n2, . . ,,ni 

Arithmetic 
A  -  B 

Logical 

A  -  B 

Control  Statements 


GO  TO  s 
PAUSE  J 
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STOP 

IP  (b)  »t,sf 

UNLESS  (b)  sf,st 

DO  (s)  UNTIL  b,  n  -  ei>e2 

DO  (s)  POR  a.IN.b 
CONTINUE 

List  Processing  Statements 

LIST  n ( ^ ,  c g ,  •  •  • 

LENGTH  (n) 

RESET  LENGTH  (n)  to  p 
PLACE  eg,  •  •  • ,  e )  IN  n 

REMOVE  ENTRY  n(k) 

PLACE  ENTRY  m(j)  IN  n 

REPLACE  ENTRY  n(k)  BY  (e^eg,  . . .  ,e±) 

REPLACE  ENTRY  n(k)  BY  ENTRY  ra(j) 

REMOVE  (bj^bg,...,^)  PROM  n 

REPLACE  (b1,bg, . . ,,bi)  BY  (ei*eg, . . . ,e±)  IN  n 

REPLACE  (b1,bg,...,bjL)  BY  ENTRY  tn(j)  IN  n 

MINIMUM  INDEX  (nfb^bg,  ,  ,  .  ,b1)#B  ) 

RANDOM  INDEX  (n(b1,to2,###,b1),s) 

GST 


LST 


Event  Statements 


PERMANENT  EVENT  n(  (a1,a2, . . .  ,8^ 

CONTINGENT  EVENT  n(  (a-^a^  . . .  ,a 

NEXT  EVENT 
NEXT  EVENT 

NEXT  EVISNT  EXCEPT  (n^n^  .  .  .,nx 
END 

END  CONTINGENT  EVENTS  (s ) 

Procedure  Statements 

PROCEDURE  n 

PROCEDURE  n(a^,a2,  . .  .,an) 
EXECUTE  n 

EXECUTE  n  (a^^a2>  •  •  *>a^) 

RETURN 
RETURN  a 

Input-Output  Statements 

FORMAT  (Format  Specification) 
READ  (t j  s )  List 
WRITE  (t,s)  List 
READWRITE  (t^s^t^Sg)  List 


BINARY  READ  (t)  List 


BINARY  WRITE  (t)  List 
END  PILE  RETURN  (s) 
END  RECORD  RETURN  (s  ) 
BACKSPACE  (t) 
BACKSPACE  PILE  (t) 
END  PILE  (t) 

REWIND  (t) 

UNLOAD  (t) 
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Standard  Functions 


ABS(v) 

ATAN(v1,v2) 

C0S  (v ) 

EPS  IL0N  ( v ) 

EXP  (v ) 

INTEGER (v ) 

L  ffa  (v ) 

MAXCv^Vg,  ...  ,Vj) 

MIN(v1,Vg,..*,Vj) 

MjZfD(v1,Vg) 

RANDOM 

REAL(v) 

SIGN(v) 

SIN(v) 

SQRT(v) 

TAN (v ) 


INDEX 


"A"  Fields  In  FORMAT  48 
ABS  26,  4,  67 
addition  (+)  7,  22 

.AND.  8,  22 
arrays  5,  14 

as  procedure  arguments  20 
In  C0fMM0M  statements  19 
in  expressions  24 
subscripts  of  29 
asterisk  (*)  7 

as  multiplication  symbol  22 
in  list  processing  conditions  33-34 
ATAN  26,  4,  67 
ATTACKER  4 

automatic  updating  59 
in  statements  20 

BACKSPACE  41,  10,  40,  66 
BACKSPACE  FILE  4l,  10,  40,  66 
BINARY  READ  43,  10,  40,  65 
BINARY  WRITE  43,  10,  40,  66 
blanks  3 ,  6 
BY  9,  37-38,  64 
BY  ENTRY  9,  37-38,  64 

card  punch  43 
card  reader  40 
CARDS  40,  4 

characters,  alphabetic  3>  4,  9 
characters,  alphameric  3>  4,  6,  46,  48 
characters,  numeric  3>  6 


characters,  set  of  3 
characters,  special  3,  7,  6,  46,  48 
CLASS  13,  13,  12,  63 
classes  5 

as  class  members  13 
as  dimensions  14,  19 
as  DO-loop  parameters  55 
as  procedure  arguments  21 
defining  statement  13 
in  C0faMOtf  statements  19,  20 
in  expressions  23,  25 
in  substitution  statements  31 
comma  ( , )  7 

C0MM0N  18-20,  10,  12,  63 

comparators  7,  22,  23 

constants  6,  3,  24 

OBTAINS  9,  13,  63 

CONTINGENT  EVENT  17,  57,  10,  12,  65 

contingent  events  5 

as  procedure  arguments  21 
automatic  processing  of  57-59 
defining  statements  17,  57 
in  COM M0N  statements  19,  20 
in  expressions  24 
In  substitution  statements  31 
subscripts  of  29 
CONTINUE  56,  10,  51,  64 
COS  26,  4,  57 

dimensions  L4 

in  COMMON  statements  18,  19 
of  arrays  14 
of  lists  16 
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of  objects  12 
of  vector  components  16 
of  vectors  1 6 

related  to  subscripts  29-30 
division  (/)  7,  22 

D0  55-56,  10,  51,  64 

.E.  7,  22 

implied  in  list  processing  conditions  34 
"E"  fields  in  F 01  MAT  49 
EACH  13,  4 
ellipsis  (...)  7 

END  17,  57,  10,  51,  65 
END  COMPILATION  62,  4,  10 
END  CONTINGENT  EVENTS  60-6l,  10,  51,  65  * 

END  FILE  41,  10,  40,  66 

END  FILE  RETURN  60-6l,  10,  51,  66 

END  RECORD  RETURN  60-6l,  10,  51,  66 

EPSILON  26,  4,  67 

. EQV.  8,  22 

EXECUTE  53-54,  10,  51,  65 
.EXOR.  8,  22 
EXP  26,  4,  67 
exponentiation  (.P.)  7,  22 

expressions  22-25 

as  dimensions  12,  14 
as  DO-loop  parameters  55 
as  logical  unit  designators  40 
as  subscripts  29-30 
in  input/output  lists  42 
in  RETURN  statements  54 
in  substitution  statements  9,  31-32 
external  procedures  5,  24,  31,  (see  also  ’’procedures" ) 


"F"  fields  in  F 0ft MAT  49 

FALSE  4,  6 

F0ft  9,  42,  55,  64 

F 0ft MAT  45-50,  44,  4,  10,  40,  65 

FR0fo  9,  36,  65 

functions  25-28  (see  also  "procedures”) 

for  locating  list  entries  39 

in  expressions  24 
standard  in  MILITRAN  26-28 
use  of  RETURN  statement  54 

.0.  7,  22 
.GE.  7,  22 
G0  T0  51,  10,  63 

restriction  in  D^-loops  56 
GST  34-35,  4,  64 

"H"  fields  in  F 0ft MAT  46 

"I"  fields  in  F0ftMAT  48 

IF  51-52,  10,  64 

restriction  in  D0-loops  56 
implied  DJ2f-lc»ops  in  input/output  lists  42 
IN  9,  35,  36,  38,  64 
.IN.  7,  22,  23 

implied  in  list  processing  conditions  34 
INDEX  4 

as  abbreviation  for  MINIMUM  INDEX  39 
automatic  updating  59 
in  C0MK0N  statements  20 
input/output  lists  42-46,  50 
INTEGER  14,  27,  4,  10,  12,  l6,  67 
.IS.  7,  22,  23 

implied  in  list  processing  conditions  34 


"J"  field*  in  F 0ft MAT  49 


.L.  7,  25? 

"L"  field*  in  F0ftMAT  48 
.LE.  7.  5? 2 

LENGTH  32-33,  4,  35,  36,  38,  64 
line  printer  40 
LIST  16,  10,  12,  64 
list  entries  32 

as  basis  for  NEXT  EVENT  selection  58-59 
conditions  specifying  33 
functions  for  locating  39 
list  processing  32-39,  64 
lists  5 

as  procedure  arguments  20 
associated  with  events  17,  58-59 
defining  statements  16,  17 
in  C0^‘.M0N  statements  19 
in  expressions  24 
in  substitution  statements  31 
processing  of  32-39 
subscripts  of  29 
L0Q  27,  4,  67 
LOGICAL  14,  10,  12,  16,  63 
logical  block  43,  60-61 
logical  unit  designations  40,  43,  44 
LST  34-35,  4,  64 

main  program  2 

MAX  27.  4,  67 

MIN  27,  4,  67 

MINIMUM  INDEX  39,  4,  64 

minus  (-)  7,  23 

mnemonic  delimiters  9,  3 
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M0t>  4 ,  67 
modes  4-5 

declaration  of  14-16 
multiplication  (*)  7#  22 

names  3~'+ 

.NE.  7,  22 

NEXT  EVENT  57-59,  4,  10,  51,  65 
in  C^IM^N  statements  20 
restriction  in  D0-loops  56 
NEXT  EVEN]!  EXCEPT  57-59,  10,  51,  65 
NORMAL  M0DE  15,  11,  12,  l6 
.N0T.  8,  23 

"0"  fields  in  FORMAT  48 
OBJECT  12,  11,  63 
objects  5 

as  class  members  13 
as  dimensions  14,  19 
as  D0f-Loop  parameters  6l 
as  procedure  arguments  21 
defining  statement  12 
in  C0MM0N  statements  19,  20 
in  expressions  23 
in  substitution  statements  31 
open  procedures  5,  24,  31  (see  also  "procedures") 
operators  3,  7-8,  22-23 
.0R.  8,  22 

.P.  7,  22 

parentheses  ()  7,  23-24,  45 

PAUSE  53,  11,  51,  63 
period  (.)  7,  6 

PERMANENT  EVENT  17,  11,  12,  57,  65 


permanent  events  5 

as  procedure  arguments  21 
automatic  processing  of  57-59 
defining  statements  17*  57 
in  CgfrlM^N  statements  19,  20 
in  expressions  24 
in  substitution  statements  31 
subscripts  of  29 
PLACE  35,  11,  31,  64 
PLACE  ENTRY  36,  11,  31,  64 
plus  (+)  7,  23,  51 

PRINTER  4,  40 

PROCEDURE  20,  11,  12,  53,  65 
procedures  2,  5 

arguments  of  20-21,  24,  25,  53 
as  functions  25 
C0MM0N  statements  in  18 
control  statements  53-54 
defining  statements  20-21,  53-54 
implicit  declaration  of  25 
in  expressions  24 
in  substitution  statements  31 
program  2 

PROGRAM  SUBJECT  14,  11,  12,  16,  63 
punctuation  3,  7,  22-25 

RANDOM  27,  4,  67 
RANDOM  INDEX  39,  4,  64 
READ  44,  11,  40,  45-46,  65 
READWRITE  45,  11,  40,  45-46,  65 
REAL  14,  28,  4,  11,  12,  16,  67 
REMOVE  36,  11,  31,  64 
REMOVE  ENTRY  36,  11,  31,  64 
REPLACE  33,  11,  31,  64 


REPLACE  ENTRY  37,  11,  31,  64 
RESET  LENGTH  38,  11,  31,  64 
RETURN  53-54,  11,  51,  65 
REWIND  41,  11,  40,  66 
SIGN  28,  4,  67 
SIN  28,  4,  67 
single  variables  5 

as  procedure  arguments  20 
In  C^IMON  statements  19 
In  expressions  24 
source  program  2 
source  address  50,  47-49 
SORT  28,  4,  67 
statement  labels  5 

as  procedure  arguments  21 
defined  by  CONTINUE  statements  56 
defining  range  of  DO-loops  55 
in  ENT  CONTINGENT  EVENTS  statements  60-61 
in  ENT  PILE  RETURN  statements  60-61 
in  END  RECORD  RETURN  statements  60-61 
in  GO  TO  statements  51 
in  IF  statements  51-52 
in  substitution  statements  31 
in  UNLESS  statements  51-52 
required  for  FORMAT  statements  45 
statement  type  identifiers  9-11,  3 
STOP  53,  11,  51,  64 
subscripts  29-30 

substitution  statement  31-32,  7,  9,  63 
subtraction  (-)  7,  22 

SUSPEND  FAP  LISTING  62,  11 
symbolic  dimensions  5 

as  procedure  arguments  21 
in  COMMON  statements  18,  20 


in  expressions  24 

of  arrays,  vectors,  lists,  etc.  14 

of  objects  12 

TAN  28,  4,  67 
tape  units  40-41,  43 
TARGET  4 

automatic  updating  59 
in  C0MM0N  statements  20 
target  address  52,  47-49 
TIME  4 

as  basis  for  NEXT  EVENT  selection  58 
automatic  updating  59 
in  C0MM#N  statements  20 
T0  9,  38,  64 
TRUE  4,  6 

implied  in  list  processing  conditions 

UNLESS  51-52,  11,  64 

restriction  in  D0-loops  56 
UNLOAD  41,  11,  42 
UNTIL  9,  42,  55,  64 

VECT0'R  16,  11,  12,  63 
vector  components  5 

defining  statements  16 
in  expressions  24 
subscripts  of  29 
vectors  5 

as  procedure  arguments  20 
defining  statement  16 
in  C0MM0to  statements  19 


33-34 


In  expressions  24 
In  substitution  statements  31 
subscripts  of  29 

voids  In  Input/output  lists  42,  46,  51 
WRITE  44,  11,  40,  45-47,  65 
"X"  fields  In  FORMAT  46 
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